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eTITL ATSS SATS SYSTEM SERVICE TESTS WAITS (SUCC S.C.) 
“IDENT e808" : ee 


—MARAAAAARARARAAALAALALEALALALALLLL ELAS ELE EERE EERE E ERECT ESE R REECE 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
TH OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH CENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
Pp 
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THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT 


N 
AND EXPECTED FUNCTIONALITY PERFORMED 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: OCT, 1977 
MODIFIED BY: 
VERSION 1.5 : 25-MAY-79 
01 LDJ 10/11/79 Fixed bug caused by DIBSK_LENGTH change ACGO52.RNO mem 


00 

00 

$0 

3 CORPORATION. 

00 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

san SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

0900 PARARAASALAAALALALALALALALALSSLALELALESESE ELE SES EEE EEE EEE ESE REE REECE EERE ER EERE GE 

$098 : 

0000 ; 

900 

00 

4 ABSTRACT: 

38 THIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED 
WITH SUCCOMMON.OBJ, FORM TEST MODULE SATSSS56 TO TEST SUCCESSFUL 

06 OPERATION OF THE WAIT SYSTEM SERVICES. EACH SERVICE IS INVOKED 

00 INPUT CONDITIONS WITH VARYING INPUT PARAMETERS. ONLY 

000 SUCCESSFUL STATUS CODES ARE EXPECTED IN THIS TEST MODULE. CORRECT 

000 OPERATION OF EACH SERVICE FOR EACH OF ITS ISSUANCES IS VERIFIED BY 

44 CHECKING FOR AN SS$_NORMAL STATUS CODE, EXPECTED RETURN ARGUMENTS 
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;++ 
; FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
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SATS SATS SYSTEM SERVICE TESTS WAITS Rsute 5 16-SEP-1984 00: AX/VMS Macro V04- Pa 
vee tt DECLARATIONS g- iets 9 ge 33: 4 UETPSY.S Bae Sayeesoo.maR:1 - | 
4 .SBTTL DECLARATIONS 
: : INCLUDE FILES: 
60 * SPRVDEF ; PRIVILEGE BIT DEFINITIONS 
61 PHDDEF + PROCESS HEADER OFFSETS 
6¢ POLDEF 
63 SDIBDEF ; DEVICE INFO BLOCK OFFSETS 
sf : MACROS: 
68 + EQUATED SYMBOLS: 
F£900001 $3 EFGRO_MASK : =F 5900001 : FLAGS USED BY SYSTEM IN EVENT FLAG GROUP 0 
12345678 71 PROC_TONS = *x12345678 ; PROCESSING CONST IN RO UNTIL WAIT 
if 3 eee SERVICE REPLACES. IT WITH A STATUS CODE 
24 i : BIT NUMBERS FOR FLAGS CONTAINED IN ‘FLAGS’ BYTE: 
00000000 re E éxp -WALT - ; WAIT EXPECTED WHEN SUBJECT SERVICE ISSUED 
9000001 77 REC~WAIT = 1 : WAIT RECEIVED AFTER SUBJECT SERVICE ISSUED 
One 18 PROCESSING = ; 3 MAIN ROUTINE PROCESSING WHEN AST DELIVERED 
000 WAITING = : MAIN ROUTINE IN E.F. WAIT WHEN AST DELIV'D 
000004 0 FELL THRU =4 t MAIN RTN HAD FALLEN THRU WAIT BY AST DEL'Y 
00000005 1 ASTLOOP = 5 ¢ AST RE-ENTERED TOO OFTEN WITHOUT WAITING 
0000 ; CLUSCHG = 6 : CLUSTER CHANGED ACROSS A WAIT 
4 : OWN STORAGE: 
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SATSSS56 SA 
y0us800 DE 


000 ? .PSECT RODATA,RD, NOWRT .N XE, LONG 
: TEST MOD _NARE: ; STRING. C.<SATSS : TEST MODU ULE NAME 
TEST“MOD“NAME_D: STR G 1°<SA 1338 TEST MODULE NAME DESCRIPTOR 
: MSGI“INP-CTL:~ STRI ; Trezw: GONDITIONS:> 
; FAO CTL STRING FOR MSG1 IN SUCCOMMON.MAR 
; MSG3_ERR_CTL:: STRING I,< *SSWAT!42W: 'AS> 
1 ; FAO CTL STRING FOR MSG3 IN SUCCOMMON.MAR 
1 4 CREPRN: STRING SATSS856- CRE> ; CREATED PROCESS NAME 
g 5 CLUS_NAME STRING I,<SATSSS $ JECT CLUSTER NAME 
A IMAGRAM : STRING VSTSTSRES: SSATSUT .EXE> ; IMAGE NAME FOR CREATED PROC 
FFFFFFFF FFFFD8FO 0099 TIMEINCR: LONG Lge} ; DELTA TIME OF } MILLISECOND 
Al 38 CHMKADD : : THE FOLLOWING LONGWORDS ARE THE 
002" O0a1 ADDRESS SYSSUAITERS2 t .e. CHMK ADDRESSES IN THE SYSTEM SERVICE 
0 990 , A 100 LADORESS SYSSWFLAND+2 =; ... VECTORS FOR SYSSWAITFR, SYSSWFLAND, 
0000002" 00a9 101 -ADDRESS SYSSWFLOR+2 =; ... AND SYSSWFLOR, RESPECTIVELY. 
AD (1 ; QUOTALIST: $QUOTA CPULM, : INFINITE CPU 
0B2 1 SQUOTA BYTLM.512 : BYTE LIMIT FOR BUFFERED 1/0 
0B? 104 SQUOTA FILLM. : OPEN FILE COUNT LIMIT 
0BC 105 SQUOTA PGFLQUOTA,10 ; PAGING FILE QUOTA 
OCT 106 SQUOTA PRCLM, > SUBPROCESS QUOTA 
0C6 107 $QUOTA TQELM. > TIMER QUEUE ENTRY QUOTA 
00CB =: 108 SQUOTA LISTEND > DEFINES END OF LIST 


Ss = 


J 
EM SERVICE TESTS WAITS (suec S 


PSECT 


Sos25e2 
an Sh- Ss 
ee 

+ 


a st 
oF 

o 

“wy 

ff" «- 

ie 

i) 


Vv ROO -4w 


zr 


sce vOs 


Pa & 
JSATSSS -MAR; 1 - 
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"SSEp=19be 82:82:30 Heresy. Se 


RWDOATA,RD,WRT ,NOEXE ,LONG 
-BLKQ} 


| 
I 
-BLKL 1 ; CHAN NO. FO BOX FOR CREATED PROCESS 
3 CHANNEL INFO RETURNED BY GETCHN 
Lone b18%K. LENGTH 


: ADDR OF PR VILEGE MASK (IN PHD) 

R MAILBO 

0 RET 
AD 
-BLKB D1BSK_LENGTH 
BLK ; SAVE AREA FOR MAILBOX UNIT NUMBER 
STRING 9.120 ; MAILBOX BUFFER FOR CREATED PROCESS 
~BLKL ; MASK TO BE SPECIFIED ON WAIT SYST SERVICES 
-BLKL 1 : CLUSTER MASK; USED TO SET SUBJECT CLUSTER 
-BLKW + WORK AREA FOR TRIAL_MASK 
-BLKL 1 ; STATE OF SUBJECT CLOSTER 
BYTE : COUNT OF CONSEC. "PROCESSING'’ AST ENTRIES 
“BYTE : GEN. PURP. FLA 6S: BIT DEFINITIONS ABOVE 
BYTE > PROCESS FLAG; CREATED PROC NON-EXIST. 


ICE TESTS WAITS sute s i S o-138t 80: 33: 3 Uther en 
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-SBTTL CONDITION TABLES 


weeee CONDITION TABLES FOR WAIT SYSTEM SERVICES *eeee 


1 -NOTARG <WHERE WAITS ARE CLEARED? , e 
<IN A OLFFERENT PROCESS 
<IN tHe SAME PROCESS>,- 


2, Mey od <TYPE OF WAIT SYSTEM SERVICE>,=- 


<SUPLANDD: = 
<SWFLOR>,=- 


3,LONG,<EFN>,=- 


<EVENT FLAGS g°3 1_(EV FLAG GROUP 0)>,- 
<EVENT FLAGS 32 $3 (EV FLAG GROUP 1)>,- 
<EVENT FLAGS 64-95 (EV FLAG GROUP 2)>.- 
<EVENT FLAGS 96-127 (EV FLAG GROUP 3)>,- 
. LONG 9 : EVENT FLAG GROUP 
LONG 2 : EVENT FLAG GROUP 
“LONG 64 : EVENT FLAG GROUP 
“LONG 6 + EVENT FLAG GROUP 


& LONG. Aes - 
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SOFUM MMMM mn > HOryon OOODODOOOOOOOoUVTVTVCT"CT"0T_C00 2-4 


SooO00e 


L 1-BI 
<MIXED o- AND 1-BITS>,=- 


- LONG “XFFFFFFFF ; ALL 1-BITS 
- LONG “A/BITS/ ; MIXED BITS 
5 NULL 


SATSSS56,RD,WRT EXE 
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V04= 
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M 
-SBTTL TM_SETUP, TM_CLEANUP | 

FUNCTIONAL DESCRIPTION: | 
REQUIRED HOUSEKEEPING AT THE BEGINNING AND END, RESPECTIVELY, OF 
TEST MODULE EXECUTION 
CALLING SEQUENCE: 

BSBW TM_SETUP ®8SBW TM_CLEANUP 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 


TM_SETUP: COND TABLE INDEX RE 
PRIVILEGES ACQU 


OOOOOCoCoOoCoOooooooooo 


GISTERS (R2,3,4,5,6) CLEARED; 
IRED. 
COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VTA RSB) IF ERROR ENCOUNTERED 


Sete Ge Ge Se Se Ge Se Se Se Se Ge Be Ge Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge Ge Se Ge Se Se Se Se Se 
‘ 4 
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TH_SETUP: : 
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BSBW MOD_MSG P : PRINT TE 
MOVAL TEST_MmOB a tt TMD_ADDR ASSUM ia 
INSV py .#3,MOB_MSG_ chbE: ADJU 


PRIPDPIPINPINIM IPM INININ II a at nt at nt nk nk kk tk tk kt a tt th tt tt te 


“Bes IN MSG 
Ow SUCCESS 

tobe FOR SUCCESS 

; KERNEL MO CESS PHD 

MOVL ORF Ske NBHD.R R9 GET PROCE ADER ADDRESS 

MOVAL PHOS BRIVIS (Hp yma ; GET PRIV MASK ADDRESS 


MODE FROM,SS ; TO USER 
PRIV ADD, ALL ; GET ALL PRIVILEGES 


00000900"EF 90000000 OF 0 
00000000" EF 


59 00000000'9F D0 
00000000°EF 69 ODE 
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TESTS WAITS (SUCC S 16*SEP=1984 00:58:38 YAX/VMS Macro VO4- 
SSE 1986 bai30:34 LuetPet.sacigarsesso.mar:1 "29% (7p 


RN_S TEST MOD_NAME_D ; SET PROCESS NAME 
ECR NORMAL Check STATUS CODE RETURNED FROM SETPRN 


N iy FLAG GROUPS ASSOCIATED FOR LATER USE 
PROCESS & ITS ASSOCIATED MAILBOX 


S_EFN=#64, NAME=CLUS_NAME i ASSOCIATE GROUP 2 
NORMAL FOR NORMAL STATUS CODE 
$ EFN=#96, NAME=CLUS NAME; MASSOCIAT E GROUP 3 
NORMAL ty HECK FOR NORMAL STATUS CODE 
$ CHAN=MBXCHAN, LOGNAM 


MAXMSG=#120, Ph OGNaMs CRE BU bud=424 
; GET MA 1tBOx FOR PROCESS 
HECK NORMAL HECK NORMAL COMPLETION 
CHN ‘3 CHANCHEXCHAN, PRIBUF =MAXCHANIN NFO 
: GET CHANNEL INFO (UNIT NUMBER) 


SS_CHECK ; CHECK NORMAL COMPLETION 


R 
L 

1; GET 2 

g 

4 

5 

: 

: 

0 

1 

5 MOUZWL MBXCHANINFO+8+D18SU_ UNIT; MBXUNIT 
§ VE MAILBOX UNIT NUMBER 
: 

0 

1 

: 

4 

5 

; 
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NOMINEES «+ 


PAYIRYNF EOE Woe 


EA 

FC 
Fee 
ECR 
BX_ 
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$C 
GET 
$_C 
Q0O0000088"EF  O0000020'EF  3¢ 


SA 
SCREPRC_S PRCNAM=CREPRN IMAGE=1MAGNAM 


MBXUNT=MBXUNIT, QUOTA=QUOTAL IST 
CREA te "PROCESS WHICH WILL CLEAR WAITS 
SS_CHECK NORMAL : CHECK ITS COMPLETION 
MOUB #1, PROCFLAG INDICATE CREATED PROCESS EXISTS 
RSB : RETURN TO MAIN ROUTINE 
TALCLEAE 


STB  — PROCFLAG ; DOES CREATED PROCESS EXIST ? 
BEQ 10$ : NO = sank IP PROCESS-RELATED SERVICES 
SFORCEX_S PRCNAM=CREPRN, CODE=#SS$_NORMA 
FORCE SUBPROCESS TO EXIT & BE DELETED 
$Q10W_S CHAN MBXCHAN, FUNC=#10$ READVELK. - 
P1=MBXBUFF+8, P2=MBXBUFF 


QOOOO1IC'EF 01 


—o ovo 
wu UWIO 


0000011C ‘EF 
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; WAIT FOR IT TO SEND MAIL 


DELETE TERMINATION MAILBOX 
DISASSOCIATE ..... 

» e+ COMMON CLUSTERS 

RINT TEST MODULE END MSG 
ETURN TO MAIN ROUTINE 
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SATSSS56 SATS SYSTEM SERVICE TESTS WAITS (SUCC S Ig°§ EP=1 84 00: 38: 38 AX/VMS Macro ¥04-00 Page 9 
V04= CONDITION SUBROUTINES = SETUP AND CLEANU 5=SEP=1984 04: UETPSY.SRCJSATSSS56.MAR; 1 (1) 
c 15 ( COND3:: 
c 1? ; ; CHECK FIRST FOR COND2/COND3 CONFLICT 
53 iS (Oe 19 TSTL Rs ; SWAITFR (SINGLE FLAG) ? 
OA Ne C 0 BNEQU 108 + NO == GO CHECK COND1/COND3 CONFLICT 
20 OQO00024E'EFS4 oD C4 1 CMPL GENCRGI,#32 : YES == LOCAL EVENT FLAG GROUP 0 ? 
12 19 O2CCc : BLSS 0$ : YES == FLAGS USED BY SYST; GO SET CONFLICT 
CE 10$: ; Che cK FOR COND1/COND3 CONFLICT 
52 pS O2c 4 Nie eS ; WAITS TO BE CLEARED IN DIFF PROCESS ? 
19 12 02D 5 BNEQU COND3X : NO <= ALL IS OK; JUST EXIT 
00000040 8F  O000024E'EF44 01 0 D $ CMPL = EFNCR4J, #64 > YES == LOCAL EVENT FLAG GROUP ? 
0B «18 DE BGEG § COND3X ; NO == ALL IS OK; JUST EXIT 
ogee $ _ : YES == CAN'T set LOCAL FLAGS IN DIFF PROC 
00000000'EF  O0000000'EF 90 0 EO p eeatee MOVB ONES, CONFLICT ; INDICATE CONFLICT 
05 0268 3¢ $B ; RETURN TO MAIN ROUTINE 
O2EC 33 COND3_CLEANUP: : 
05 O2EC 334 RSB : RETURN TO MAIN ROUTINE 
O2ED 335 COND4 
05 O2ED 336 RSB ; RETURN TO MAIN ROUTINE 
O2EE 37 COND4_CLEANUP:: 
0S O2EE 338 ; RETURN TO MAIN ROUTINE 
O2EF 339 CONDS 
0S O2EF 340 : RETURN TO MAIN ROUTINE 
O2FO 341 CONDS_CLEANUP:: 
05 O2F0 342 RSB ; RETURN TO MAIN ROUTINE 


a — yy 


ov 


¢ Ff 
EM SERVICE TESTS WAITS (SUCC S 16-SEP-1984 90:38:38 AX/VMS Macr Oeste 
Ss 4:32:34 (CUETPSY.SRCISATSSS56.MAR; 1 


SATSS$56 SATS 

v04-000 FORM “SEP=1984 

ioe -SBTTL FORM_CONDS 
FUNCTIONAL DESCRIPTION: 


FORM CONDS FORMATS AND PRINTS INFORMATION ABOUT 
THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES. 


CALLING SEQUENCE: 
BSBW FORM_CONDS 
: INPUT PARAMETERS: 


DESC, TESTNUM 
FOR 


ORMAT CONDITIONS HEADER MSG 


4 
t2 3 
3 ; 
2 ; 
50 : 
2g : 
54; 
32 
3? : NONE 
6 33 : IMPLICIT INPUTS: 
0 61 : R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
6¢ ; FOR COND TABLES 1,2,3,4,5, RESPECTIVELY. 
0 63 : FOR X = 1,2,3,4,5 : 
0 64 : CONOX.T = TITLE TEXT FOR CONDX TABLE 
65 : CONDX"TAB = ELEMENT TEXT FOR CONDX TABLE 
0 66 : CONDX7C = CONTEXT OF THE CONDX TABLE 
0 67 ; CONDX7E = DATA ELEMENTS OF THE CONDX TABLE 
0 F $9 : OUTPUT PARAMETERS: 
03 4 : NONE 
O2F rg : IMPLICIT OUTPUTS: 
OF 74; 
i oe 
03F 77 : COMPLETION CODES: 
O2F 78 ; 
Oc 4 : NONE 
03t ei : SIDE EFFECTS: 
F Hh : NONE 
F 4& ° 
O5F So 
ae 
0 F 9 FORM_CONDS:: 
f 30 $FAO_S MSG1_INP_CTL,FAO_LEN,FAO 
FCED' 30 031 3¢ BSBY OUTPUT_MSG t we. AND P 
4 00 91 031 9 CMPB  =- #COND 1", ANULL : IS" CONDITION 1 NULL ? 
03 12 031 94 BNEQU + NO == CONTINU 
00D? 31 95 nat RW FORM_CONDSX : YES == SUBROUTINE IS FINISHED 

0099390000 eF 999001 IDE D 1 9 " — MOVAL = COND1_T MSG A : SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO 

"EF 000001 TER G2 D 98 MOVL COND1~TABLR2J,MSG_B : SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO 

00000000'EF 00 9 9 MOVE #CONDT_C,MSG CTX SAVE CONDITION 1 CONTEXT FOR FAO 
400 MOV_VAL COND1_C,CONDT_ECR2],MSG_DATA1 ; GIVE COND 1 DATA VALUE TO FAO 
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SATSSS56 SATS SYSTEM SERVICE TESTS WAITS (SUCC S 16-SEP-1984 00: AX/VMS Macro V04-00 Page 11 
v04=000 FORM_CONDS ~EEp=} S82 Beis8i8e HOE ey Sees SaY sesso. man:1 P88" HH, 
FCA" 30 9 401 BSBW WRITE_MSG2 ; FORMAT AND WR TE CONDITION 1 MSC 
14 9 1 . 4 : CMPB Ot ONb2"C C,#NULL : 1S CONDITION 
0 iF gr BNEQU t NO == CON 
QOOAE 3 41 4 4 _ BRW FORM_CONDSX : YES <= SUBROUTINE IS FINISHED 
QOO00000'EF  00000169"EF oD am 4 MOVAL COND ; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO 
00000000'°EF  00000186'EF43 tf 4F 60% MOVL COND STABERSA MSG_B ; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO 
00000000'EF 00 90 0358 408 MOVB #0 ND2_C,MSG_CTXT SAVE CONDIT10N, 2 CONTEXT R FAO 
62 409 MOV_VAL COND2_C ep Nb2. etR3y, MSG_ BATAL GIVE COND 2 DATA VALU TO FAO 
FC9B' 30 0362 410 BSBO OR ITE-MSG ; emi AND D ARATE. CO CONDITION MSG 
16 06 91 0365 411 CMPB = #COND3_C, #NULL ; isc 
03 1 68 aig BNEQU : NO - ma 7 7 NUE 
00 6A 413 - BRW FORM_CONDSX + YES == SUBROUTINE IS FINISHED 
00000000'EF 000001A9'EF DE 0 gp 415 MOVAL COND : SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO 
00000000'EF  OO0001AE'EF44 0D 03 & 416 MOVL COND stABERE3 MSG_B ; SAVE ADDR OF COND 3 CURR TEXT ELT FOR FAO 
00000000'EF 04 90 384 41 MOV TXT” SAVE CONDITION 3 CONTEXT FOR FAO 
0 88 418 MOV_VAL (6 ONDS. t mi NDS. EtR4), MSG_ BATA: GIVE COND 3 DATA VALUE TO FAO 
FC66" 30 0397 419 SBQ so WRITE MSG : FORMAT AND WRITE CONDITION 3 MSG 
16 046 91 039A 420 CMPB ss @COND&_C,, #NULL : IS CONDITION LL ? 
53 13 «(0390421 BEQLU FORM_CONDSX : YES == SUBROU 1 NE IS FINISHED 
QOOOD000'EF  OO00025E'EF DE O39F 4 ‘ MOVAL CONDS_T seas + SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO 
Q0000000°EF — 00000264°EF45 DO O3AA 4 MOVL  COND4 ChB R54] MSG_B ; SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO 
QOO00000"EF 04 90 03B6 424 MOVB #COND 6_€TxT AVE ONDITION 4 CONTEX FAO 
O3BD 425 MOV_VAL C ONDE 40 2 CONDE. etRS). MSG_ batal COND 4 DATA VALUE TO FAO 
FC34" 30 03¢9 426 BSBO —~WRITE-MS ; FOR anit AND ayn CONDITION 4 MSG 
14 #16 91 O3CC 427 CMPB = #CONDS_C, #NULL : 1S CONDITION 5 NULL 
21 13 O3CF 428 BEQLU FORM CONDSX F SUBROUT INE is” "FINISHED 
00000000'EF  00000293'EF DE 03D1 429 MOVAL CONDS_T + SAVE ADDRESS OF CONDITION 5 TITLE FOR FAO 
00000000'EF  00000293'EF46 DO O3DC 430 MOVL COND5~ TaBERS MSG 8B ; SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO 
00000000°EF 14 90 O38 431 MOVB ND SAVE CONDITION 5 CONTEXT FOR FAO 
O3EF 4 § MOV_VAL CON NDS. C cONGS ECR6I, MSG_ BATA} : GIVE COND 5 DATA VALUE TO FAO 
FCOE' 30 O3EF 43 Q ~~ WRITE=MSG2 ; FORMAT AND WRITE CONDITION 5 MSG 
O3F2 434 FORM_CONDSX: 
05 O3F2 435 RSB : RETURN TO CALLER 
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. -SBTTL VERIFY 

FUNCTIONAL DESCRIPTION: 

VERIFY IS CALLED ONCE FOR EACH COMBINATION OF CONDITION 

TABLE VALUES (AS DETERMINED BY THE INDEX REGISTERS R2,3,4,5 

COND TABLES 1,2,3,4,5, RESPECTIVELY). VERIFY ESTABLISHES THE CONDITIONS 

SPECIFIED By fé €OND’ TABLES AND ISSUES THE SUBJECT SYSTEM SERVICE 

(SWAITEF, SWFLAND, SWFLOR). THEN, THE SUCCESSFUL OPERATION OF THE SERVICE 

1S VERIF{ED BY EXAMINING THE STATUS CODE RETURNED, THE VALUES FOR RETURN 

ARGUMENTS AND THE FUNCTIONALITY PERFORMED. THE EXAMINATIONS TAKE THE 

FORM OF COMPARISONS AGAINST EXPECTED VALUES. ANY FAILING COMPARISON 

CAUSES AN ERR_EXIT MACRO TO BE EXECUTED (EITHER DIRECTLY, OR INDIRECTLY, 

THROUGH THE SS CHECK MACRO); ERR_EXIT SETS EFLAG TO NON-ZERO, 

PRINTS ERROR MESSAGES AND CAUSES~AN IMMEDIATE RSB TO CALLER. 

WHEN ERR EXIT IS EXECUTED, FURTHER CALLS TO VERIFY ARE SUPPRESSED, 

AND, AFTER EXECUTING CLEANUP SUBROUTINES, THE IMAGE EXITS. 


CALLING SEQUENCE: 
BSBW VERIFY 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
R2,3,4,5.6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
FOR COND TABLES 1,2,3,4,5, RESPECTIVELY. 
FOR X = 1,2,3,4,5 : 
COND E = ADDRESS OF TABLE OF DATA VALUES FOR CONDX 
TABCE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE 
ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM 
FOR CONDX_E. 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


VERIFY HAS NO OUTPUT. SINCE ITS PURPOSE IS TO TEST FOR ERRORS, 
IT MERELY RETURNS TO CALLER NORMALLY AFTER THE TESTS, PROVIDING 
ALL WERE SUCCESSFUL; IF AN ERROR IS DISCOVERED, RETURN IS VIA 
AN ICH DOCUMENT DETECTED 


ERR_EXIT OR SS_CHECK MACRO, BOTH OF WH 
ERRORS 


COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. | 
SIDE EFFECTS: 


SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED. 
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SATSSS56 SATS SYSTEM SERVICE TESTS WAITS (SUCC S$ Ig-SEB-1984 00:58:38 AX/VMS Macro V04-00 Page 13 | 
v04= VERIFY ~SEP=1984 04:32:34 CUETPSY.SRCJSATSSS56.MAR; 1 (1) 
F 494 ;-- 
F 495 
ry 498 | 
FS 498 VERIFY: | 
00000000" EF 9 F349 TSTB cFLAG ; SHOULD CONDITIONS BE PRINTED ? 
: 1 F 0 BEQL $ + NO == CONTINU 
FEFS) 3 FB 1 ts BSBW  FORM_CONDS : YES <= FMT & PRINT ALL CONDS FOR THIS T.C. 
FBFF’ 30 0 FE : ; BSBW SAVE REGS : SAVE REGS 2-6 FOR LATER USE IN AST ROUTINE 
QOOOO114'EF B84 rt? 4 CLRW wORs : INIT TRIAL_MASK W 
0000010¢ "EF 9000268 EF 45 DO 04 f 05 MOVL mask ERS yeu MASK : GET SUBJECT MASK” FOR THIS TEST CASE 
0 doooesevera HL Sg hg : AMEN cha gue? 
0000010C'EF FF000001 gf CA 41D o8 cad BICL2 #EFGRO_MASK,SUBJ_MASK =; YES <= STEER CLEAR OF FLAGS USED BY SYS 
90000110" “EF 00000114'EF 90 04 : 10 | MOVB  TM_WORK,TRIAL =NASK ; PROPAGATE TM_WORK .... 
0000011 00000114"EF 90 04 11 MOVB =‘ TM"WORK. TRIAL MASK+1 S nny STE WE esenocs 
g0001 12+ Ef 00000110°EF B80 04 3 1 MOVW inte MASK, TRIAL_MASK+2 ; ...... THRU TRIAL_MASK 
0000024E EF 44 00 4 1 MOVL FNCR&ZJ,R10 : TELL BUILD” CLUST OHICH CLUSTER TO BUILD 
bee 0 0451 514 BSBW BUILD. etust + ESTAB CLUSTER ACCORDING TO TRIAL _MASK 
0000000 a4 3 454 315 STB FELA LAG” : Is AN ERR OR BEING PROCESSED 
020431 049¢ 319 a BRW VERIFYX : YES == RETURN IMMEDIATELY 
0000011B'EF 94 ee 313 “ CLRB- FLAGS : CLEAR ALL FLAGS 
O3FD 30 0465 0 BSBW  SETEXPBIT : SET EX PECTATION BIT 
0468 521 SSETIMR_S DAYTIMSTIMEINCR, - SCHEDULE AN AST IN 1 MILLISECOND 
0468 5 : Asta DR=WAITAST 
O47F = SS_CHECK NORMAL ; CHECK SETIMR COMPLETION 
50 12345678 8F D0 O4AD 6 4 MOUL wPROC EONS. RO : CONSTANT IN RO TO BE CHECKED IN AST 
0484 ; $ ; teeeee ONE OF FOLLOWING WAIT CALLS IS THE SUBJECT OF THIS TEST CASE **eee 
53 DS (0484 «528 * ; WAITFR (SINGLE FLAG) ? | 
10 12 0486 529 BNEQU 208 + NO == CONTINUE 
488 0 SWAITFR_S EFN=EFNCR4J : YES -- ISSUE SUBJECT SERVICE 
ae | ifs 1 ae BRB 40$ : GO CHECK ITS COMPLETION 
01 53 «OT gee i "(MPL séR3 #1 : WELAND ? 
16 12 04¢B 4 BNEQU 308 : NO == CONTINUE 
4CD § SWFLAND_S EFN=EFNCR4J, NASK=SUBJ MASK 
4E1 é YES -- ISSUE SUBJECT SERVICE 
4% #11 aE ja BRB 40$ : GO CHECK ITS COMPLETION 
ae 33 peti SWFLOR_S EFN=EFNCR4J, neauestedh ; MUST BE WFLOR 
00 0000011B'EF 04 4F7? = 541 "ss BBSS) ~=—s« @FELLTHRU, FLAGS, .+1 ; INDICATE THAT WAIT IS DONE 
Bon 0008 BE g of arf 4¢ CPL R #SS$_NORMAL ; CODE a Et nue CODE EXPECTED ? 
00000000" EF 1099200008 06 308 44 MOVL  #SS$_NORMAL,EXPV : LOAD UP EXPECTED 
‘eF 50 DO 051 45 MOVL V ; 4. RECEIVED VALUES. THEN EXIT 
boo . 51 46 oat ERR_EXIT LONG, <INCORRECT STATUS CODE RETURNED FROM WAIT SERVICE> 
48 0000011B'EF 05 €1 i) rh Sr OER Stoop FLAGS, 55$ : att nue te NO LAST LOOPS mepiearecias ceri 
00800000" EF Hy 7E 550 CLRBOCOCEXPVtC - : AST LOOP -- SET UP FOR ERR EXIT 
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Q0000000'EF 94 84 1 CLRB RECY epee 
BA ¢ a ERR_EXIT BYTE,<UNSATISFIED WAIT CONDITION> 
54 0000011B'EF 06 €1 3 i BBC #CLUSCHG, FLAGS, 58$ ONTINUE IF NO CLUSTER CHANGE ERROR 
1 © he ERR_EXIT LONG, <CLUSTER EVENT FLAG COT TANGS CHANGED ACROSS WAIT> 
70 11B'EF 00 E1 3 5 "BBC #EXP_WAIT, FLAGS, 70$ ; BRANCH IF FALL-THRU EXPECTED 
0 11B'EF 01 5 BBC REC. “WALT. FLAGS ,60$ ; WAIT EXP'D: BRANCH IF FALL-THRU RECEIVED 
OoeF 631 pi BRW : WAIT EXPECTED @ REC TVEDS THAT'S OK 
00000000’ EF 1I0"EF "MOVE TRIAL -BASK EXPY : SET up TRIAL MASK an 
00000000" EF $0001 ‘EF 8 4 ; MOVL __TRIAL“MAS RECY FOR MSG- THEN ExiT 
Sue F sea, ERR_EXIT LONG; -euait XP'D; FALL=- uke" REC'D; VALUE IS CLUST BEFORE WAIT> 
03 0000011B'EF 91 £0 6AA 565 3 3~=~—_——saBBSS. #REC_WAIT, FLAGS, 75$ i; BRANCH IF WAIT REC'D; THAT'S AN ERROR 
0072 «(31 iss 66 os BRW 80$ + FALL=THRU EXPECTED @ RECEIVED; THAT'S OK 
00000000'EF  00000110'EF v9 6B 8 : MOVE TRIAL _MASK ,EXPV ; SET up TRIAL MASK .... 
00000000°EF  00000110°EF D0 06C0 TRIAL MASK.RECV SG; THEN EXiT 
$ 2 20 ane arte “EXIT LONG? <FALC-THRU EXP"D: WAIT’ REC’ D: VALUE IS CLUST BEFORE WAIT> 
FS 00000114°EF 01 OOFF BF 30 ? ? 72 ~=——si«ACBWSs«#2'5S., #1, TM_WORK, 108 ; MAKE NEW TRIAL_MASK & LOOP 
07 ; 573 VERIFYX: 
05 07 7% RSB ; RETURN TO CALLER 
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. .SBTTL VFY_CLEANUP 
FUNCTIONAL DESCRIPTION: 


De 
an 
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VF Y_CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE 
EFFECT OF THOSE I$sueo IN THE VERIFY SUBROUTINE. VFY CLEANUP MUST 
ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY (IF AN 
ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT 
ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS”REQUIRED 
IN THE EVENT THAT VFY_CLEANUP IS CALLED DURING ERROR PROCESSING, 
WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN 
POSSIBLY DISCOVERING A SECOND ERROR. 


CALLING SEQUENCE: 
BSBW VFY_CLEANUP 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
FOR COND TABLES 1,2,3,4,5, RESPECTIVELY. 


FOR X = 1,2,3,4,5 : 
CONDX’E’= ADDRESS OF TABLE OF DATA VALUES FOR CONDX 
TABCE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE 
ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM 
FOR CONDX_E. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED. 


VFY_CLEANUP: : 
RSB ; RETURN TO CALLER 
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66¢ : 
663 BUILD_CLUST: 
664 MOVL 
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-SBTTL BUILD_CLUST SUBROUTINE 
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BUILD _CLUST SUBROUTINE 


~~ 
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THE TRIAL_MASK BY ISSUING THE PROPER COMBINATION 
OF 32 SETEF/CLREF'S. THEN A READEF IS ISSUED AND 
THE NEW CLUSTER SETTINGS ARE VERIFIED. 


INPUTS: 
R10 - THE LOW-ORDER EFN IN THE SUBJECT CLUSTER 
TRIAL_MASK = LONGWORD CONTAINING THE MASK TO 
WHICH THE SUBJECT CLUSTER IS 
TO BE SET. 
OUTPUTS: 


SUBJECT CLUSTER = UPDATED TO LOOK LIKE TRIAL_MASK. 


CLUS_STATE = LONGWORD CONTAINING THE IMAGE 
OF THE NEWLY SET SUBJECT CLUSTER. 


VOLATILE REGISTERS: 
RO, R1, RB, RO 


LARA RARAAAARAALARAAAAAAAAASAALAEELELALE SEER ARRAS EERE ARERR AERA S| 


R10,R8 ESTABLISH FIR 
R9 | 


T EFN (EVENT FLAG NO.) 
INIT OFFSET K 


S 
CLRL NTO TRIAL_MAS 


; ISSUE SSETEF IF BIT FOR THIS FLAG IS SET 
> see OTHERWISE, ISSUE SCLREF 

: IF NORMAL STATUS, PROCESS NEXT EVENT FLAG 
> USE SS_CHECK TO TERMINATE TEST MODULE 


BBS R9, TRIAL_MASK, 30$ 
SCLREF_S EFN=RB 
BLBS ~R 
SS_CHECK NORMAL 


SSETEF_S EFNERS ; SET CURRENT EVENT FLAG 
LBS ~ RO,40$ : IF NORMAL STATUS, PROCESS NEXT EVENT FLAG 
SS_CHECK NORMAL ; USE SS_CHECK TO TERMINATE TEST MODULE 
INCW " ; GET NEXT EFN 
ACBB —s #31, #129208 : GO DO NEXT EVENT FLAG 
SREADEF_S EFN=R10, STATE=CLUS_STATE ; READ THE CLUSTER JUST BUILT 

S “RO, 50$ ; CONTINUE IF NORMAL COMPLETION 
SS_CHECK NORMAL ; USE SS_CHECK TO TERMINATE TEST MODULE 
CMPL CLUS STATE, TRIAL_MASK ; DID CLUSTER GET BUILT OK ? 
BEQLU BUILD_CLUSTX : YES == SIMPLY EXIT 
MOVL  TRIAL“MASK,EXPV : NO == LOAD EXPECTE 


1?) AND see 
: ... RECEIVED VALUES, THEN EXIT 
MASK NOT BUILT CORRECTLY> 
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RSB ; RETURN 
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AX/VMS Macro V04- 


P=1984 04: UETPSY. SRC }SATSSS56 «MAR; 1 


; SWAITER (SINGLE FLAG) ? 
CONTINUE 
Low BIT OF MASK SET, wiih A FALL-THRU 
Set EXPECT-WAIT BIT & EXIT 


LOGICALLY "‘AND'’ SUB_M 
2» WITH TRIAL_MASR, ARESULT IN R7 
$uRLAND ? ? 
YES == GO TEST RESULT 
NO == ASSUME $WFLOR 
; RESULT ZER 

- NO <= EXPECT A FALL-THRU 
FLAGS, SETEXPBITX ; YES == SET BIT 


EXIT 
; RESULT = SUBJECT MASK ? 
| 


soc 


Mosrixtt 


2D 2YD www ®-—D 


- YES == EXPECT A FALL-THRU 
FLAGS,SETEXPBITX ; NO == SET BIT & EXIT 
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SATSSS56 SATS SERVICE TESTS WAITS (SUCC S 16-SEP-1984 00:58:38 VAX/VMS Macro v04-00 Page 20 | 
y042000 SETS ROUTINE ety 8 38:38 UETPSY.SRCJSATSSS56.MAR:1 (1) 
re .SBTTL SETSTBIT SUBROUTINE 
$ : THE SETSTBIT SUBROUTINE SETS A STATE BIT INDICATING 
71: THE STATE OF THE MAIN (INTERRUPTED) ROUTINE WHEN 
£26 : THE SALTASS WAS DELIVERED. 
77%, SeTSTBIT: 
90 0000011B' EF j £4 775 BBSC § #PROCESSING,FLAGS,.+1 ; CLEAR up PROCESSING" eres 
© 0000011B'EF E4 176 BBSC § #WAITING,FLAGS,.+4 t 5... AND ‘WAITING’ FLAGS 
03 0000011B'EF 04 eI 77 BBC #FELLTHRU, FLAGS, 10S : CONTINUE IF NOT A FALL-T 
0027 31 178 ae BRW SErsiolTx : STATE BIT ALREADY SET ; MUST EXIT 
QOOOD0A1'"EF43 10 AC. 01 780 — « CMPL~—ss«16 CAP) , CHMKADDE-R3) ; PC POINTING TO WAIT'S CHMK ? 
14 1 781 BNEQU : NO == GO SET ''PROCESSING'' 
12345678 8F OB AC D 7 5 MPL (AP) , #PROC_CONS + YES == PROCESSING CONST STILL SET IN RO ? 
OA 13 7 BEQLU $ : YES == WAIT SERVICE NOT EXECUTED YET 
00 0000011B'EF 03 € 784 BBSS #VALTING FLAGS. .4 +1 : NO <= PROCESS IS WAITING 
08 11 , 5 bie BRB SETSTBITX : EXI 
00 0000011B'EF 02 €2 7 $ : BSS § #PROCESSING,FLAGS,.+1 ; INDICATE STILL PROCESSING 
788 SETSTBITX: 
05 789 RSB ; RETURN TO CALLER (WAITAST RTN) 
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SATSSS56 SATS SYSTEM SERVICE TESTS WAITS (SUCC S 16-SEP-1984 00:58:38 VAX/VMS Macro V04- Page 21 
04-000 WAITAST ROUTINE Breer fae barsesse FORTHES Bacto VOR ans Pease 21, 
ED Pe .SBTTL WAITAST ROUTINE 
ED 793 ; THIS AST ROUTINE IS ENTERED AFTER A 1-MILLISECOND TIMER EXPIRES. 
ED 794 : THE TIMER 1S SET J ust oper ORE ISSUING A WAIT SYSTEM SERVICE. SINCE 
ED 795 ; THE WAIT SERVICE ist OLLOWED BY A $HIBER, THE MAIN ROUTINE HAS 
ED £38 : ; TO HAVE BEEN IN ONE OF THE THREE FOLLOWING STATES AT TIME OF AST 
ED 23 ; INTERRUPT: 
gED £38 : WAITING == THE WAIT SYSTEM SERVICE CAUSED AN EVENT FLAG WAIT. 
8ED B00 : WAIT WILL BE CLEARED BY ISSUING SETEF'S A 
BED 01 : — REC_WAIT BIT WILL BE SET. 
OBED Ha 3 FELLTHRU == = THE WAIT SYSTEM SERVICE DID NOT CAUSE AN 
BED 804 ; EVENT FLAG WAIT (THIS IS A FALL-THRU). 
QBED 805 ; A $HIBER FOLLOWING THE WAIT WILL BE 
O8ED 806 : CLEARED WITH A SWAKE AND THE REC_WAIT 
OED 807 ; BIT WILL BE CLEARED. 
OBED 809 ; PROCESSING == NEITHER OF THE ABOVE TWO STATES. IN THIS CASE, 
Q8ED 810 ; 1-MILLISECOND TIMER IS REPEATED, EXPECTING 
Q8ED 811 ; ONE OF THE OTHER TWO STATES TO BE REACHED EVENT- 
O8ED 81g : UALLY. 
O8—ED 813: 
O8ED 814 WAITAST: 
O3FC O8ED 815 WORD “nck? R3,R4,R5,R6,R7,RB,RI> ENTRY I 
F70E" 30 O8EF 816 BSBW TORE G§ : RESTORE $56 F FOR USE IN A 
FFBS 30 OBFe 817 BSBW Et tor BIT F DETERMINE. oF ate OF EXECUTION :' SET BIT 
36 0000011B°EF 02 €1 O8FS 818 BBC WPROCESSING,FLAGS,10$ : BRANCH IF NOT PROCESSIN 
OA OOO0011A"EF 91 O8FD 819 CMPB  —s- CONSEC_P,#10 : 10 CONS ECUTIVE ~PROCESSING'’ AST ENTRIES ? 
1D 18 0904 820 BGEQ «=s«5$ : VES DO N RE=SCHEDUL — THIS AST 
Q000011A'EF 96 0906 821 INCB _ CONSEC_P : LOG T nts OCCURRENCE 
090c «iB j SSETIMR_S DAYTIM=TIMEINCR, - ; STILL PROCESSINGS RE=SCHEDULE THIS AST 
090c «8 ASTADR=WAITAST 
00E6 31 a8 8 4 ia BRW WAITASTX > sees EXIT BACK TO INTERRUPTED CODE 
00 0000011B'EF 05 €2 09 826 BBSS § #ASTLOOP, FLAGS, .+1 ; INDICATE ERROR FOR LATER PAOCESSING 
00 0000011B'EF 03 €E2 09¢ : 7 BBSS § #WAITING.FLAGS,.+1 : FAKE WAITING STATE TO CLEAR WAIT 
09 8 10S: : EITHER WAITING OR FELLTHRJ 
QO00011A'EF 94 0933 8 3 CLRB  —- CONSEC_P : RE-INIT CNT OF CONSEC "PROCESSING" ENTRIES 
0939 8 1: THE FOLLOWING CODE READS THE CLUSTER & COMPARES IT 
939 é : AGAINST TRIAL_MASK FOR EQUALITY. IF EVENT FLAG GROUP 0, 
0939 «833: COMPARE ONLY FLAGS 1-23, SINCE OTHERS MAY BE USED BY 
939 834 ; SYSTEM OR TEST MODULE. 
939 36 SREADEF_S EFN=EFNCR4J, STATE=CLUS_STATE 
94D 83 > GET STATE OF CLUSTER 
20 Q000024E"EF44 D1 0940 38 CMPL FFNCR4I, #32 : EVENT FLAG GROUP 
07 +19 953 9 BLSS : YES == 60 SPECIFY v POS & SIZE FOR COMPARE 
38 D4 095 40 CLRL Rs : NO <= SPECIFY POSITION FOR COMPAR 
2 90 0959 841 MOVE #32,R9 : SPECIFY SIZE OF TRIAL_MASK FOR COMPARE 
ort 3¢ 4g a BRB 178° : GO DO COMPARE 
58 401 = o9A 955 4 MOVZBL #1,R8 : SPEC POSITION FOR E.F. GROUP 0 
59 17 +~«#290 961 45 rm MOVE #28,R9 + yee. AND SIZE 
57 00000116"EF  O0000110°EF cD 0964 23 XORL3 TRIAL_MASK,CLUS_STATE,R7 ; GET XOR OF 2 COMPARANDS 
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SATSSS56 SATS SYSTEM SERVICE TESTS WAITS (SUCC S 16-SEP-1984 00:58:38 VAX/VMS Macro V04- Page 2 SA’ 
5042000 WAITAST ROUTINE mi ioe 90:33:38 LOE TP SY. SReTSAYSSSo6.MAR1 . ‘4 vO 
00 57 59 58 FC 9 48 CMPV —s RB, RO, R77, #O ; COMPARE FOR BIT MATCHES USING POS & SIZE 
iE 97 4 BEQLU t BITS MATCH == CONTINUE 
00000000" EF 0000110: EF dd 097 50 MOVL TRIAL_MASK,EXPV : MISMATCH == LOAD EXPECTED .... 
00000000" EF 0 O116°EE D 982 51 MOVL CLUS STATE,RECV t «e+» AND RECEIVED VALUES 
00 0000011B'EF 06 €E 380 36 -“ BBSS § #CLUSCHG,FLAGS,.+1 t INDICATE ERROR FOR LATER PROCESSING 
995 854 SWAKE_S ; WAKE SELF TO SATISFY $HIBER 
03 0000011B'EF 93 §9 9A 55 S #WALTING, FLAGS, 22$ + BRANCH IF WAITING 
005 31 a8 36 rae BRW WAITASTX : MUST HAVE FALLEN THRU WAIT; JUST EXIT 
00 00000118'EF 01 E2 09A 38 BBSS § #REC_WAIT,FLAGS,.+1 : SET "WAIT RECEIVED’ BIT & KEEP GOING 
2 D5 098 5 TSTL OR : FIRST CONDITION 1 ELEMENT ? 
iE 13 098 60 BEQLU 308 : YES == CLEAR WAIT IN CREATED PROCESS 
0987 861 ‘ NO <= CLEAR WAIT IN THIS PROCESS 
58 Q000024E'EF44 DO 0987 6¢ MOVL EFNCR4],R8 : ESTABLISH FIRST EFN IN CLUSTER 
594 O98 63 as CLRL RO : INIT OFFSET OF EFN IN CLUSTER 
09C1 865 SSETEF_S EFN=RB : SET THIS EVENT FLAG 
58 B6 O9CA 866 INCW 7 R : POINT TO NEXT ONE 
FFEF 59 01 #1F 9D O09CC 867 ACBB ss #31, #1,R9,25$ t LOOP BACK TO SET NEXT ONE 
0034 31 O90¢ 868 oe BRW WALTASTX : ALL DONE == WAIT IS CLEARED 
0905 870 SWAKE_S PRCNAM=CREPRN ; HAVE CREATED PROCESS ISSUE SETEF'S 
09E4 871 $Q10W-S CHAN=MBXCHAN, FUNC=#10$_READVBLK, - 
09E4 876 P1=MBXBUFF+8, P2=A1 = 
0A09 = 87 > ... WAIT UNTIL HE SIGNALS "‘DONE 
0A09 874 WAITASTX: 
04 OA09 875 RET ; TERMINATE THIS AST 
OAOA 876 END 
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SATSSS56 SATS SYSTEM SERVICE TESTS ITS (SUCC S$ 16-SEP-1984 00 8 VAX/VMS 04-00 23 SA] 
Symbol table =SEP-1984 04:32:34 CUETPSY.SRCJSATSSS56.MAR;1 (1) vOé 
$$ = BR 04 CONDS_T 000029 
Ham : ff SENDS TAB 5000393 3 
SSSCHARS1 = OA CONFLICT teeereee 4 
SSSCHARS : 1 CONSEC_P 90000114 3 | 
SSSCHARS = 6 0 0 CREPRN 051 2 
SSSCHARSS = CTL$GL_PHD caterene é | 
SSSCHARSS = 00000000 DESC = 00000010 | 
$COND = 00000001 DIBSK_LENGTH = 00000074 
SSSSTRIAGS = 8 $ 1 DIBSW_UNIT = 0000000C 
SSSSTRINGS2 = (0000005 EF GRO-MASK = FF000001 
1 = $0000094 fh Goaogzce n* BS 
ASTLOOP . 8 0098 EXPV aeeeeees 4 
BUILD_CLUST 90000 5 04 EXP_WAIT = 00000000 
BUILD-CLUSTX 0000864 04 FAO-DESC geeeeees 04 
BYTE = 00000001 FAO-LEN geeeeeee 04 
CFLAG kkeeeeee 04 FELCTHRU = 00000004 
CHMKADD 000000a1 02 FLAG 00000118 03 
CHMRTN teteeene 04 FORM_CONDS 0000eF 04 
CHM_ CONT gteeeeee 04 FORM~ CONDSX 00003F2 04 
CLUSCHG = 0000000 IMAGNAM 0000007A 02 
CLUS_NAME 0000006 92 10$_READVBLK eeeeeree 04 
CLUS"STATE 00000116 0 LONG 90000004 
COMP~SC ktereeee 04 MASK 00000288 03 
CONDT 000002B¢ 04 MBXBUF F 0000008¢ 03 
COND1_C = 00000000 MBX CHAN 00000008 03 
COND1~ CLEANUP 00000280 04 MBXCHANINFO 0000000¢ 03 
COND1~ 00000169 R 03 MBXUNIT 00000088 03 
COND1—H 00000135 03 MOD_MSG_CODE akeeeene 04 
COND1~ 0000011D R 03 MOD“MSG~PRINT eeeeenee 04 
COND1~TAB 00000136 03 MSGT_INP_CTL 00000019 R 02 
COND2 000002BE 04 MSG3_ERR-CTL 00000039 02 
COND2_C 00000000 MSG_A eeeeeeee 04 
COND2~ CLEANUP 000002BF 04 MSG_B geeeeene 04 
COND2-E 000001A9 R 03 MSG_CTXT ekeeeeee 04 
COND2-H 00000185 03 MSG-DATA1 atteeene 04 
COND2-T 00000169 R 03 NOTARG = 00000000 G 
COND@"TAB 00000186 R 03 = 00000014 6G 
COND 999002C0 RG 04 ONES aeeeeeee =X 04 
COND 3x 00000 EB R 04 OUTPUT_MSG aeeeeeee xX 04 
COND3_C = 00000004 V aeeeeeee XX 04 
COND3~ CLEANUP 9000026 ¢ RG 04 PHD$Q_PRIVMSK = 00000000 
COND3_E 0000024E R 03 PQL$_BYTLM = 00000003 
COND3—H 900 O1AD RG 03 PQL$-CPULM = 90000004 
COND3~T 00001A9 R 3 POLS$"FILLM = 00 6 
COND3~TAB QOOO01AE R 03 POL$"LISTEND = 00000000 
COND4 00000 ED RG 04 PQL$~PGFLQUOTA = 00000007 
COND4_C = 000 6 4 PQL$~PRCLM = 9000008 
COND4~ CLEANUP 0 ERG 04 POL$~TOQELM = 00000009 
COND4~E 9 R 03 PRIVAASK 990000 R 03 
COND4—H g RG 03 PRIV_ARGS = 999 00 
COND4~T 6 ER 03 PROCESSING = 000 
COND4~ TAB 64 R 03 PROCESS ERR aeeeeeee =X 04 
CONDS EF RG 04 PROCFLAG 0 90911 R 03 
FONDS ELEANUP . ORG 04 QuADT = 06000008 
COND5"H 0000 58 RG 3 QUOTALIST Matton R 02 
} 


SATSSS56 
Symbol table 


SUC 
SYSSASCEFC 
SYSSCLREF 


SYSSFORCEX 
SYSSGETCHN 
SYSSHIBER 
SYS$Q10W 
SYSSREADEF 
SYSSSETEF 


D 
WRITE_MSG2 


RRERREEE 
00000001 
RRRARREE 
RERRREERE 


RRRAEERE 
0000010C 
RRERKEEE 
RAeRRRAKE 
RREKRKEE 
RERAEERE 
RREKKEEE 
REERRERE 
RRRKEREE 
RREKRREE 
RAKE 
RARERRAEE 
RREKRREE 
Reet 
REeeeeee 
RREKKEEE 
RREEKEEE 
ReEKKEEE 
ReeeReEE 
RARE 
Reeekeee 
Reeeeeee 
REReKKEe 
RREERREE 
Reeeeeee 
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SATSSS56 SATS SYSTEM SERVICE TESTS WAITS (SUCC S 19rst P- ath 9 3: 33: 3 AX/VMS M 
Psect synopsis P-19 4: UETPSY.SR 

goeeececeoe eeweee sree a $ 

! ; Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
. 0000000 <¢ +) 00 ¢ QO.) NOPIC USR CON ABS LCL ee NOEXE NORD 
SABSS 0000000 -) O71 ¢ +1.) \NOPIC USR CON ABS LCL EX 
RODATA SO h oot ( 208.) ¢ ( ¢°} NOPIC USR CON’ REL LCL NOSHR NOE XE 
RWDATA 444 94 98 ot ( -) NOPIC USR CON’ REL LCL os th NOE XE 
SATSSS56 QOOOOADA ( 2 od 4 ( 4.) NOPIC USR CON’ REL LCL N 

¢eeceecececan eres econmaawcaae me o-+ 
: ; Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00:00.ug 
Command processing 107 00: 898-82 8 288: a 
Pass 1 325 00:00:10.04 0:00:22.9 
Symbol table sort 0 00:00:0 2 00:00: 3:3 
Pass 2 176 a 84 00:00:03.9 
Symbol table output 21 00:00:0 43 00:00:00.31 
Psect synopsis output 8880.00" 00:00:00.03 
Cross-reference output 0:00:00.00 ee SS 4 
Assembler run totals 66 00:00:14.45 00:00:32.01 


The yorking set_Limit was 1500 pages. 

2 bytes (107 pages) of virtual memory were used to buffer the intermediate code. 

ae were 30 pages of symbol table , toece allocated to hold 388 non-local and 74 local symbols. 
6 source Lines were read in Pass 1, producing ¥ object records in Pass 2. 

55 pages of virtual memory were used to define 45 macros. 
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Macro Library name Macros defined 
-$255$0UA28: CSHRLIBJVETP.MLB; 1 10 
~$255$DUA28: CSYS.OBJJLIB.MLB; 1 1 
“$255$DUA28:(SYSLI ISTARLET ALB; 2 31 

TOTALS ‘all phe, es) 42 


801 GETS were required to define 42 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:SATSSS56/0BJ=0BJ$:SATSSS56 MSRC$:SATSSS56/UPDATE=(ENH$: SATSSS56) +EXECMLS$/L1B+SHRLIBS:UETP/LIB 


04- P 5 
SSatsss 8. man: 1 ar rf 


a NOVEC BYTE 


WRT NOVEC BYTE 


(1) 


